*** Figure 1 ***
* NOTE: Please change the topic number to the ones randomly generated in the simulated dataset.

set scheme s2mono

use "$data/simulated_df.dta", clear 

ciplot select if topic_number=="AF071-040", note("") by(total_score_orig) xlabel(,labsize(small)) msym(o) xtitle("Total Score")  ///
	ytitle("P(Win)") title("Topic AF071-040 (Conventional)", size(medium)) name(sc1, replace) graphregion(color(white) margin(small))

ciplot select if topic_number=="AF192-047", note("") by(total_score_orig) xlabel(,labsize(small)) msym(o) xtitle("Total Score") ///
	ytitle("P(Win)") subtitle("Topic AF192-047 (Conventional)", size(medium)) name(sc2, replace) graphregion(color(white) margin(small))

ciplot select if topic_number=="AF192-001", note("") by(total_score_orig) xlabel(,labsize(small)) msym(o) xtitle("Total Score") ///
	ytitle("P(Win)") title("Topic AF192-001 (Open)", size(medium)) name(sc3, replace) graphregion(color(white) margin(small))

ciplot select if topic_number=="AF191-005", note("") by(total_score_orig) xlabel(,labsize(small)) msym(o) xtitle("Total Score") ///
	ytitle("P(Win)") title("Topic AF191-005 (Open)", size(medium)) name(sc4, replace) graphregion(color(white) margin(small))

graph combine sc1 sc2 sc3 sc4, graphregion(color(white)) col(2) title("")
graph export "$figures/figure1.eps", replace
